home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / auto_cad / sizer.lsp < prev    next >
Text File  |  1988-07-16  |  1KB  |  47 lines
  1. ;  Program Sizer.lsp  Version 1.0
  2. ;  By Jim MCMillan.   86.July.31
  3. ;  Program automatically resizes a drawing to fit given area.
  4. ;
  5. ;
  6. (DEFUN C:SIZER ()
  7. (makeblock)
  8. (resize)
  9. (getblock)
  10. (COMMAND "ZOOM" "A")
  11. )
  12.  
  13. (defun makeblock ()
  14. (setq ur (getvar "EXTMAX" ))
  15. ;  Get the most upper right point drawing uses.
  16. (setvar "CMDECHO" 0)
  17. (setvar "HIGHLIGHT" 0)
  18. (command "BLOCK" "PLOT" "0,0" "W" "0,0" ur "" )
  19. ;  Makes a block of the drawing, and calls it PLOT.
  20. )
  21.  
  22.  
  23. (defun resize ()
  24. (setq top-right (getvar "LIMMAX"))
  25. (setq lm1 (car top-right))
  26. ;  Assign first atom of Limmax to lm1.
  27. (setq lm2 (cadr top-right))
  28. ;  Assign last atom of Limmax to lm1.
  29. (setq pt1 (getreal "Enter new length value for x >> "))
  30. (setq pt2 (getreal "Enter new length value for y >> "))
  31. (setq xscale (/ pt1 lm1))
  32. ;  Calculate new x scale factor.
  33. (setq yscale (/ pt2 lm2 ))
  34. ;  Calculate new y scale factor.
  35. (setq pt3 (list pt1 pt2))
  36. ;  Put the two reals into a list.
  37. (setvar "CMDECHO" 0)
  38. (command "LIMITS" "" pt3 )
  39. )
  40.  
  41.  
  42. (defun Getblock ()
  43. (setvar "CMDECHO" 0)
  44. (COMMAND "INSERT" "PLOT" "0,0" xscale yscale "" )
  45. )
  46. ;Program complete.
  47.